home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / VBONLINE / VBONLINE.M14 / AVP05011.BMP (.png) < prev    next >
Multiple Resolution Bitmap  |  1997-01-11  |  21.6 KB  |  651x469  |  4-bit (13 colors)
   ocr: frmSetTime - OX frmSetTime X Start Time 12:00A AM OK End Time 12:30A à frmSetTime -OX (General) ValidateTime Channel 3 Private Sub Form Load() If Recorder.StartRecording <> Empty Then extstart.lext - Recorder.StartRecording End If If Recorder.StopRecording <> Empty Then CxtEnd.lext = Recorder.stopkecording End If cxtchannel = Recorder.Channel End Sub Function ValidateTime (Time As String, Field As Control) AS Dim strMsg As String If IsDate (Time) Then Fleld.lext = Format$ (Time, "h:mm AM/PM") ValidateTime = Truel Else